home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Visual Basic Source Code
/
Visual Basic Source Code.iso
/
vbsource
/
roller
/
roller1.frm
< prev
next >
Wrap
Text File
|
1994-07-31
|
10KB
|
323 lines
VERSION 2.00
Begin Form Roller1
AutoRedraw = -1 'True
BackColor = &H00FFFFFF&
Caption = "Roller"
ClientHeight = 3870
ClientLeft = 1815
ClientTop = 1620
ClientWidth = 3255
Height = 4305
Left = 1740
LinkTopic = "Form2"
ScaleHeight = 258
ScaleMode = 3 'Pixel
ScaleWidth = 217
Top = 1260
Width = 3405
Begin PictureBox DiePic
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 2880
Left = 3540
Picture = ROLLER1.FRX:0000
ScaleHeight = 192
ScaleMode = 3 'Pixel
ScaleWidth = 96
TabIndex = 15
Top = 1200
Width = 1440
End
Begin PictureBox DieBox
Height = 675
Left = 180
ScaleHeight = 645
ScaleWidth = 2865
TabIndex = 9
Top = 1440
Width = 2895
Begin PictureBox Die5
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 480
Left = 2340
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 14
Top = 60
Width = 480
End
Begin PictureBox Die4
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 480
Left = 1740
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 13
Top = 60
Width = 480
End
Begin PictureBox Die3
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 480
Left = 1200
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 12
Top = 60
Width = 480
End
Begin PictureBox Die2
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 480
Left = 660
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 11
Top = 60
Width = 480
End
Begin PictureBox Die1
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 480
Left = 120
ScaleHeight = 32
ScaleMode = 3 'Pixel
ScaleWidth = 32
TabIndex = 10
Top = 60
Width = 480
End
End
Begin PictureBox NumPic
AutoRedraw = -1 'True
AutoSize = -1 'True
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Height = 1035
Left = 3420
Picture = ROLLER1.FRX:247A
ScaleHeight = 69
ScaleMode = 3 'Pixel
ScaleWidth = 130
TabIndex = 7
Top = 60
Width = 1950
End
Begin PictureBox NumBox
BackColor = &H00000000&
Height = 495
Left = 180
ScaleHeight = 31
ScaleMode = 3 'Pixel
ScaleWidth = 75
TabIndex = 1
Top = 180
Width = 1155
Begin PictureBox Num5
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 345
Left = 840
ScaleHeight = 23
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 6
Top = 60
Width = 195
End
Begin PictureBox Num4
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 345
Left = 645
ScaleHeight = 23
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 5
Top = 60
Width = 195
End
Begin PictureBox Num3
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 345
Left = 450
ScaleHeight = 23
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 4
Top = 60
Width = 195
End
Begin PictureBox Num2
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 345
Left = 255
ScaleHeight = 23
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 3
Top = 60
Width = 195
End
Begin PictureBox Num1
AutoRedraw = -1 'True
BorderStyle = 0 'None
Height = 345
Left = 60
ScaleHeight = 23
ScaleMode = 3 'Pixel
ScaleWidth = 13
TabIndex = 2
Top = 60
Width = 195
End
End
Begin CommandButton Command1
Caption = "Roll"
Height = 495
Left = 300
TabIndex = 0
Top = 3180
Width = 1215
End
Begin Frame Frame1
BackColor = &H00FFFFFF&
Height = 1095
Left = 60
TabIndex = 8
Top = 0
Width = 3135
Begin OptionButton WhiteNum
BackColor = &H00FFFFFF&
Caption = "White"
Height = 255
Left = 1860
TabIndex = 20
Top = 660
Width = 1155
End
Begin OptionButton GreenNum
BackColor = &H00FFFFFF&
Caption = "Green"
Height = 255
Left = 1860
TabIndex = 19
Top = 420
Width = 1095
End
Begin OptionButton RedNum
BackColor = &H00FFFFFF&
Caption = "Red"
Height = 255
Left = 1860
TabIndex = 18
Top = 180
Value = -1 'True
Width = 1095
End
End
Begin Frame Frame2
BackColor = &H00FFFFFF&
Height = 1875
Left = 60
TabIndex = 16
Top = 1200
Width = 3135
Begin OptionButton RedDie
BackColor = &H00FFFFFF&
Caption = "Red"
Height = 255
Left = 1740
TabIndex = 23
Top = 1500
Width = 1035
End
Begin OptionButton GreenDie
BackColor = &H00FFFFFF&
Caption = "Green"
Height = 255
Left = 1740
TabIndex = 22
Top = 1260
Width = 975
End
Begin Opti